VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsListNode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public x As Byte, y As Byte, FS As Byte
Public Steps As Long
Public Value As Single, Extra As Single
Public NextNode As clsListNode

Public Function IsLast() As Boolean
IsLast = NextNode Is Nothing
End Function

Public Sub InsertToNext(obj As clsListNode)
If NextNode Is Nothing Then
 Set NextNode = obj
Else
 Set obj.NextNode = NextNode
 Set NextNode = obj
End If
End Sub

Public Function GetValueTotal() As Single
GetValueTotal = Value + Steps + Extra
End Function
